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Page 1 
JMODIFY.B32:1°9" (1) 


H 1 1 MODULE MODIFY ( 

3 ¢ § LANGUAGE (84 15859) « 

; IDENT = ‘Vv04-000' 

3 % 004 )= 

; 5 : 5 : BEGIN 

g : ih 1! 

g B 008 1 SR RR eRe R RE EAE RAHA HAHAHAHAHA RE TATE AEK EKA K AKER eee eee 

3 G 484 1 !e ® 
; 10 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ’ 
; «I 0011 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

; ig pols : te ALL RIGHTS RESERVED. * 

; ; * 

ee | 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

; 0015 1 '* ONLY IN ACCORDANCE WITH THE F SUCH LICENSE AND WITH THE * 
3; BO18 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 7 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;° 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
5 1? Bae : be TRANSFERRED. * 

3 ‘« * | 
3 1 8353 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
$ ¢ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: Z 0034 : :* CORPORATION. * 

: 'e * 
3 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
; 3 Bo5$ : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 : * 

; 8 0028 1 !* * 

H 9 594 1 eee EERE AREAAAAAAAAAAAERATEA AT AEEAEAAAAEEAAERAAEAARAAEERERAAA AREA 
3 0 0030 1 

; 0031 1 !+4 | 
; g 84 1! 

3 0033 1 ! FACILITY: F11ACP Structure Level 1 

3 0034 1! | 
; 5 0035 1 ! ABSTRACT: 

3 6 0036 1! 
3 : it $4 : This routine implements the MODIFY function. 
4 . | 
; 9 0039 1 ! ENVIRONMENT: 
: 40 0040 1! 
: (41 0041 1! STARLET operating system, including privileged system services 
; $§ 984 1! and internal exec routines. 

iF ee ey 
; 45 $048 1! 

3 46 pneg 1! 

; 43 944 1; AUTHOR: Andrew C. Goldstein, CREATION DATE: 6-Jan-1977 23:03 
;. (49 0049 1°! RODIFIED SY: 

; 29 050 1! 

FSS | ea V03-004 LMP0154 L. Mark Pilant, 14-Sep-1983 15:38 

3 2g 26 : Do access conflict checks here rather than in WRITE_ATTRIB. 

3 4 054 1! v03-003 ACG0343 _ Andrew C. Goldstein 19-Jul-1983 16:50 

: 2 2? ' Inhibit revision count if NORECORD is specified 

we 008? 1! V03-002 ACG56916 Andrew C. Goldstein, 21-Jun-1983 12:05 
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Update revision 


v03-001 areoees 
Check for device 


v02-002 ACG0171 
Condition check 


v02-001 ACG0167 
Previous revisio 
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BRARY ‘SYSSLIBRARY: 
CPDEF 


Ll £19,152": 
REQUIRE ‘SRCS$:FCPDEF .B32'; 


FORWARD ROUTINE 
MODIFY 
INCREMENT; 


4 
iErSep-1986 01:11:19 vANe}1 BLig8=52 


date on MODIFY operations 


Andrew C. Goldstein, 6-Apr-1982 16:08 
write-locked before attempting operations 


Andrew C. Goldstein, 7-May-1980 18:55 
of truncate lock on presence of FCB 


Andrew C. Goldstein 7-May-1980 18:51 
n history moved to F11A.REV 


! MODIFY function routine 
' increment write count in WCB 


p | 
JMODIFY.B32:1°%" (15. 
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EXTERNAL ROUTINE 
GET _FIB 
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GLOBAL ROUTINE MODIFY 


i FUNCTIONAL DESCRIPTION: 

This routine implements the MODIFY function. 

i CALLING SEQUENCE: 
MODIFY () 

i INPUT PARAMETERS: 
NONE 

i IMPLICIT INPUTS: 

CURRENT WINDOW: w 

i QUTPUT PARAMETERS: 
NONE 

i IMPLICIT OUTPUTS: 
NONE 

i ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: 
file and FCB modified 


FIB 
HEADER 
IDENT_AREA 


C 
FICE_HEADER 
CURRENT_WINDOW 
PRIMARY_FCB 
CURRENT_VCB 
CURRENT_UCB 


FINS, 
SEARCH_FCB 
READ_HEADER, 


indow for file 
of file 


BBLOCKVECTOR C,ABD$C_LENGTH), 
buffer descriptors 


BBLOCK, 
BBLOCK, 
BBLOCK, 
BBLOCK; 


BBLOCK, 


BBLOCK; 


$s 
t file header 


ent area of file header 


1/0 packet in process | 
address of currently resident file header 


VCB of volume 
UCB of volume 


et FIB of request 


read file header 


4 
MODIFY 1Sese -1984 01:11:19 VAX-11 Bliss-32 V4.0-742 Page 4 
v04=000 oreo 188s Pbid0i4s — DESKSUMMARTERCEE Tia coke JMODIFY.032;1°%° (24 
2S 449 CHECK_PROTECT, ! check file protection 
Ss 450 GET TIME ! get date/time string 
: 138 451 MARR_DIRTY ' mark header for write-back 
: 139 4 ; WRITE_ATTRiB, i write file attributes 
3; 140 $2 EXTEND ' extend file 
: 141 454 TRUNCATE, i truncate file 
3 196 455 CHECKSUM ' checksum the file header 
: 14 36 UPDATE _F (CB; i update FCB contents 
3; 6146 Bee 
: 1465 458 
5 138 Beéo } First find the buffer descriptor, FIB, FCB, etc., and read the header. 
; 148 461 
:; 149 046 ! feinter to buffer descriptors 
s 150 046 ABD = .BBLOCK [.10_ PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPTI; 
: 13) Beee FIB = GET_FIB (. ABB); 
: 133 0466 ! If a directory ID is present, do a directory search first. 
3: 154 0467 ! 
s 155 0468 
; 156 0469 If .FIBCFIBSW_DID_NUM) NEQ 0 
; 4 gory THEN FIND (.ABD, [FIB, 0); 
; 159 047 ! If there is a file open on the channel, check the file ID returned by the 
: 160 047 !' FIND against the file ID that is open. If they are different, drop the FCB 
3; «6161 0474 ' and window addresses on the floor. 
3 166 0475 ! 
: (16 0476 
; 164 0477 IF .PRIMARY_FCB NEQ 0 
: 165 0478 THEN 
; 166 0479 IF .PRIMARY_FCBLFCBSW_FID_NUM] NEQ -FIBCF 1BSu_F 1D_NUM] 
: 167 0480 OR .PRIMARY—FCBLFCB$W-FID-RVNJ NEQ .FIBLFIBSW FID-RVNJ 
: 168 0481 THEN 
; 169 048 BEGIN 
3 170 048 PRIMARY_FCB = 0; 
; (171 0484 CURRENT_WINDOW = 0; 
3 \7¢ 0485 END; 
; (17 0486 
: 174 0487 FCB = SEARCH_FCB (FIBCFIBSW_FIDJ); 
s 175 0488 PRIMARY_FCB = .FCB; 
; 176 0489 HEADER = READ_HEADER (FIBCFIBSW_FIDJ, .FCB); 
; #178 0491 ' Check that the volume is write enabled. 
: 179 984 ! 
; 180 49 
> «181 0494 IF .BBLOCK CCURRENT UCBCUCBSL_DEVCHAR], DEVSV_SWLJ 
; 18¢ 495 THEN ERR_EXIT (SS$_QRITLCK); 
; (184 049 ! Arbitrate access interlocks. If this is the accessor, then the file 
3 ’ 5 rhs must be write accessed. Count a write to the file. 
; 18 500 
; 188 501 2 IF .CURRENT_WINDOW NEQ 0 
3 44 206 THEN 
; 190 5 BEGIN 
: 191 504 IF NOT .CURRENT_WINDOW(WCBSV_WRITEJ 
: 192 0505 THEN ERR_EXIT (SS$_NOPRIV); 


H 4 
16-Sep-1984 01:11:1 VAX-11 Bliss-32 V4.0-742 
12-08-1382 ee: DISKSVMSMASTER: CF11A.SRCIMODIFY.B32; 
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| 
Pa 5 
1 os (2) 
IF NOT .FIBCFIBSV_NORECORD] 
THEN KERNEL_CALL TINCREMENT, CURRENT_WINDOWLWCBSL_WRITESJ); 


! If it is not, then the file must not be locked against modification 
and the caller must pass file protection. 
ELSE 
BEGIN 
IF .FCB NEQ 0 
THEN 
IF .FCBCFCBSV_E 
OR .FCBCFCBSW_L 
xIT ¢ 
RIT 


EQ 0 
CONFLICT); 

SS, .HEADER, .FCB); 

! If the file is not open, count a revision and update the revision 
date now. 


IF NOT .FIBCFIBSV_NORECORD) 
THEN 


HEADER + sue ABent Piss IDOFF 
ON] = 


SETI *2; 
1$W R 


F }*2; 

I pevisl . IDENT_AREACFI1$W_REVISION] + 1; 
ENT_AREACFI11$T_REVDATEJ); 

-HEADER); 


If, J0_PACKETCIRPSW_BCNT GTR ABDSC_ATTRIB 


BEGIN 
WRITE ATTRIB (.HEADER, .ABD, 1); 
CHECKSUM (HEADER) ; 
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! If the extend enable bit is on, perform the extend operation. 
! If the truncate bit is on, perform the truncate operation. If both are 
on, it is an error. 


IF (,.FIBCFIBSV_EXTEND) OR .FIBCFIBS$V_TRUNC)) 
AND .CURRENT_VUBLVCB$V_NOALLOC 
THEN ERR_EXIT (SS$_WRITLCK); | 


IF _ .FIBCFIBSV_EXTEND) 
THEN 


V_TRUNC) THEN ERR_EXIT (SS$_BADPARAM) ; 
»” HEADER) ; 
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4 
4 
4 
4 
4 
3 
END; 
If an attribute List exists, perform the write attributes operation. | 
| 
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14-Sep-1984 12:29:45 DISKSVMSMASTER:CF11A.SRCIMODIFY.832;1 (2). 


IF .FIBCFIB$SV_TRUNCJ 
THEN 


BEGIN 
IF .FCBLFCBS’_TCNT] NEQ 0 
THEN ERR_EXI’~(SS$_ACCONFLICT); 


END; 
TRUNCATE (.FIB, .HEADER, DEALLOC_BLOCKS); 
HEADER = .FILE_HFADER; 
CHECKSUM (.HEADER); ! checksum the file header 
KERNEL_CALL (UPHATE_FCB, .HEADER); 
RETURN 1; 


END; ' end of routine MODIFY 
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Tl MODIFY 
ID \V04=000\ 

.EXTRN I0_PACKET, FILE_HEADER 
“EXTRN CURRENT WINDOW, PRIMARY_FCB 
oEX URRENT_UCB 

EX SEARCA_FCB 
EXTRN READ HEADER, CHECK PROTECT 
. GET TIME, MA 

“EXTRN WRITE_ATIRIB, EXTEND 


TEXTRN TRUNCATE, CHECKSUM 
TEXTRN UPDATE_FCB, SYSSCMKRNL 


-PSECT SCODES,NOWRT,2 


O1FC 00000 .ENTRY MODIFY, Save R2.R3,R4,R5,R6,R7,R8 ; 0392 

58 000G CF 9E 9000¢ MOVAB  CURRENT_WINDOW, RB ; 

57 000G CF 9E 0000 MOVAB PRIMARY-FCB, R? ; 

56 000000006 9F 9 9009¢ MOVAB aA#SYSSCAKRNL, R6 ; 
ag gre FD DO 00018 eM AR RAREET 8 _— 
8 DD ooic PUSHL ABD _- : 0464 

00006 cf 1 F O1F CALLS a, GET _FI8 
oA Ae 8 $ TSTW Tt IB) : 0469 

08 BEQL=Ss«d1S ; 
YA 8 CLRL = = ( SP) : 0470 

DD D PUSHL IB ; 

DD F PUSHL ABD ; 

00006 CF FB 00031 CALLS #3, FIND ; 
50 67 D 0 1$ MOVL PRIMARY_FCB, RO : 0477 

12 1 BEQL $ ; 
04 A2 24 A 81 a8 cHPW (RO), 4(F 1B) : 0479 
08 A2 28 AD Bf 42 CMPW =: 40(RO), 8(F 1B) : 0480 


4 
MODIFY 1b-se0-1984 O:11:19 VAX=11 Bliss-32 V4.0-742 7 
v04-000 14-Sep-1984 12:29:4 DISKSVMSMASTER:CF11A.SRCIMODIFY.B32; fag * (2) 
04 13 00047 BEQL 40s 3$ ; 
67 D4 00049 28: CLRL = PRIMARY_FCB : 0483 
4 00048 CLRL CURRENT WINDOW + 0486 | 
04 A2 9F 0004D 3S: PUSHAB 4(FIB) ~ + 0487 
00006 cf F CALLS #1, SEARCH_FCB : 
3 09 MOVL RO, FCB : 
5 D MOVL CB, PRIMARY_FCB + 0488 
D 0058 PUSHL FCB + 0489 
04 A2 9F 0005D PUSHAB 4(FIB) : 
00006 CF Q F 9060 CALLS "2, READ_HEADER F 
54 D 6 MOVL RO, HEADER : 
0 00006 CF D 00 MOVL CURR RENT YcB, RO + 0494 
03 3B AO 61 5 D BBC #1, 59(R : 
0089 31 000 : BRW 12$ ; 
50 68 p 0075 4$ NOV. CURRENT WINDOW. RO : 0501 
03 0B AO 4 EO 0007A BBS #1, 11(RO), 5$ + 0504 
4 BF 07 CHAU #36 + 0505 
4A 62 15 £0 00082 5$: BBS #21, (FIB), 9$ + 0506 
7E 6 8 C1 00086 ADDL3 #40. CURRENT_WINDOW, -(SP) : 0507 
it DD OO0BA PUSHL #1 : 
0000v ef OP it PUSHAB INCREM REMENT : 
66 04 FB 00099 CALLS #4, SYSS$CMKRNL : 
9 11 0009 BRB 9$° + 0501 
ge fs Hines okie tae 
03 22. «AB 08 f 00098 BBC #3, 34(FCB), 7$ : 0518 
0080 0000 BRW 16$ ; 
rea BB ABBR 7s: dary ere ex 
ee DD B00A8 8$: PUSHL FCB > 0521 
si BB gue URE nen : 
00006 CF 03 FB 000A CALLS #3 CHECK PROTECT : 
19 62 1 E 0088 BS #2i, ( 9$ : 0527 
50 64 9A 0008 MOVZBL (HEADERS + 0530 
50 6440 3€ OOOBA OVAW ielata ed ib IDENT_AREA : 
0A AO 86 OOBE INCW }OCIDENT_A REA) : 0531 
0c AO 9F 000C1 PUSHAB 12(IDENT~AREA) : 0532 
00006 CF 01 FB 000C4 CALLS #1, GET_TIM : 
00006 31 ee ites CALLS HEAD "SAAR DIRTY ees 
£f 00996 CF 50 2000 9$ MOVL ti RET RO > 0541 
05 AO et 00D CMPW RO : 
10 1B 00009 BLEQU : 
) BB So0RB PUSHR om 
00006 CF SPB doopr CALLS. #3. <ORITE ATTRIB ; 
00006 CF i ee ES CALS OE ECKSUM =— 
16 Ag 8 EB 108 IsTé (F IB) : 0553 
ee aoe ass 
05 0B AO be E1 OO00F9 BBC . FT UROS 158 : 


K 4 
16-Sep-1984 11:1 VAX-11 Bliss-32 
13-80 8-138e 9 29:4 DISKSVMSMASTER:C 
025c =F f 108 128: CHU #604 
16 A2 103 13$: TSTB 2 (FIB) 
of 1 1 BGEQ $ 
03 17 Ae € 1 BLBC 23(FIB), 14% 
14 BF 0010C CHMU #20 
14 BB i F 14$ PrSHR #°M<R2,R4 
- > 
00006 CF 02 FB 00111 CALLS "2 EXTEND 
17 17 Ae € O16 15$ BLBC 23(FIB), 18% 
53D 11A TSTL FCB 
OA 1 o1nc BEQL | : 
20 A} 8 11€ TSTW (FCB) 
9 0121 BEQL 17$ 
0800 F f 4 ; 168: CHMU #2048 
01 DD 00128 17% PUSHL #1 
i BB 0012A PUSHR #eMcR2. R4> 
00006 CF 03 FB 0012C CALLS #3, ATE 
54 00006 cf p0 901 1 18$ MOV Fite MEARE’ HEADER 
00006 CF 01 FB 901 CALLS “. CHECKSUM 
54 DD 00130 PUSHL HEADER 
01 DD 0013F PUSHL 
SE DD 00141 PUSHL SP 
00006 CF 9F 00143 PUSHAB UPDAT 
66 04 FB 00147 CALLS 4&4, CESS CRKRNL 
50 01 DO O014A MOVL #1, RO 
04 00140 RET 


; Routine Size: 334 bytes, Routine Base: $CODE$ + 0000 


3: 270 0583 (1 

; 271 0584 1! 

3 er 0585 1 ! Subroutine to increment the write count in the window. This operation 
ae ie 9286 1 ! must be done in kernel mode. 
; 274 0587 1! 

s ed 0588 1 

; 76 0589 1 ROUTINE INCREMENT (ADDRESS) = 
: 277 0590 BEGIN 

: 278 134 

; 79 236 -ADDRESS = ..ADDRESS + 1; 

$ Bo 322 1 

3 1 594 

; 282 0595 1 END; 


0000 00000 INCREMENT: 
‘ «WORD Save nothing 


“ipeg ge Rhee 


REIMODIFY. B32; 479 
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